ä0êññ 6¿¬¬√√«”“√¬¬≈Δ»Δ≈Δƒ√…ƒ√…Δ√¬√√Δ√¬—«¬¬¡B¡~ 3^ f hv everyevent c -1 v doneflag c 0 c 100 c 400 c 225 t t t t c 1 v eresult v what v mess v when v mod v wresult v mresult c 2 c 6 c 32 v i t ldrawwindow t c 12 c 10 c 20 ldrawwindow t ldomenu a1 code v menunumber c -16 v menuitem c 17 v mrefnum c 3 v z ldomenu t c 4 c 50 ldomenu t lsetupmenus t t v r$ t v mywindow$ c t v theevent$ v where$ v whichwindow$ v w$ e c MacTutor shows you how it works! ldrawwindow t c True BASIC Version 1.1 demo v s$ ldomenu e v name$ v textstring$ c You have selected menu item ldomenu t lsetupmenus e lsetupmenus t c DRVR c File c Quit c Edit c Cut c Copy c Paste c Sample Menu c Item 1 c Item 2 c Item 3 1,1:4 mymenus$ s takemac s setupmenus f screenbits$ fs, bounds$ ss,n,n,n,n, setrect f nil$ fn, pointer$ fs,s,s,n,n,s,n,n, newwindow$ ss, setport s drawwindow s systemtask sn,s,n, getnextevent ss,n,n,n,s,n, unpackevent ss,s,n, findwindow fs, menuselect sn, domenu ss,s, systemclick ss, beginupdate ss, endupdate ss, disposewindow s clearmenubar ss, disposemenu s givemac s drawwindow sn, textfont sn, textsize sn, textface sn, textmode sn,n, moveto ss, drawstring sn, domenu ss,n,s, getitem fs, opendeskacc fn, systemedit sn, hilitemenu s setupmenus fn,s, newmenu$ ss,s, addresmenu ss,s, appendmenu ss,n, insertmenu s drawmenubar f :Toolbox Libraries:menulib* f :Toolbox Libraries:windowlib* f :Toolbox Libraries:desklib* f :Toolbox Libraries:eventlib* f :Toolbox Libraries:quicklib* f :Toolbox Libraries:datalib* f :Toolbox Libraries:maclib* f :Toolbox Libraries:addr* f :Toolbox Libraries:pass_mac* f :Toolbox Libraries:s_trap* f :Toolbox Libraries:r_trap* f :Toolbox Libraries:tostring* drawwindow in Main s ?¿ê¿ê¿ ê¿ê ¿¿ ê ‡ ê ¿ ê ¿ ¿ê ‡
ê í
H¿ΔΔΔΔ ΔΔ Δ¡ domenu in Main sn, mî î î" !Δ Ç†‚ ê !ê!#ê ц;Δ Ç†¿Ñ†/Δ $dž Ã! &ê"&%ц Δ 'dž¿&¿()ê &)î
!Ïê ц ¿)ê#)í T¿ΔΔΔΔ…ƒ√…√…»… »√√Δ¡ setupmenus in Main s °‚ î ê% ‚ ‡ê&‚ê%‚‡ê'‚$ê%$‚$‡ê'‚$‡ê'‚$‡ ê'‚'ê%' ‚'‡ ê'‚'‡ ê'‚'‡ ê'îW*îY+à*+ †
